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ABSTRACT 


Efforts  during  the  past  year  have  been  directed  primarily  to  the  collection 
and  analysis  of  fundus  reflectometry  data  from  human  and  animal  sources  with 
particular  emphasis  on  reflectance  changes  in  the  human  fovea  following  both 
brief  and  extended  photolysis.  Studies  of  the  retinal  periphery  and  fovea  of 
the  rhesus  monkey  were  performed  at  intensities  above  and  below  the  threshold 
for  retinal  burns.  A  five-component  model  of  retinal  photopigment  kinetics 
was  utilized  in  the  selection  of  exposures  for  the  human  experiments. 
Concurrent  psychophysical  flasliblindness  experiments  with  identical  exposures 
were  performed  to  allow  comparisons  between  the  data  from  both  sources. 
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1.  INTRODUCTION 


The  primary  objectives  of  this  program  were  to  investigate  the  rates  of 
regeneration  of  the  visual  photopigments  of  living  human  eyes  during  flash¬ 
blindness  recovery,  and  to  investigate  the  reflectances  of  foveal  and  peripheral 
regions  of  rhesus  monkey  retinae  after  exposure  to  intensities  above  and  below 
the  thresholds  for  retinal  burns. 

Results  of  experiments  on  the  rhesus  monkey  foveae  have  been 
reported  previously. 

During  this  reporting  period,  the  primary  emphasis  has  been  on  the  investigation 
of  flashblindness  recovery  in  human  subjects  for  brief  and  extended  retinal 
illuminances.  Results  of  these  experiments  are  presented  in  this  report,  as 
are  the  results  of  investigation  of  the  periphery  of  rhesus  monkey  retinae  exposed 
to  luminance  intensities  above  and  below'  retinal  burn  thresholds. 

In  addition,  a  more  comprehensive  program  system  for  data  acquisition  and  analysis 
was  developed  and  installed.  All  data  in  this  report  were  generated  and 
analyzed  using  this  new  computer  control  system.  A  description  of  all 
components  of  this  system  is  included  as  an  appendix  to  this  report. 
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2.  THE  APPARATUS 

The  evolution  of  the  fundus  reflectometer  has  been  described  in  detail  in 
previous  reports.  In  its  present  final  form,  the  fundus  reflectometer  is 
a  computerized  electro-optical  system  for  the  collection  and  reduction  of 
retinal  photopigment  regeneration  data.  A  block  diagram  of  the  system  is 
presented  in  Figure  1. 

2. 1  The,  Optical  System 

There  are  three  functional  optical  pathways  in  the  fundus  reflectometer; 
The  first  pathway,  whose  purpose  is  the  production  of  the  measuring 
beam  and  the  capture  of  the  reflections  of  this  beam  from  the  retina, 
consists  of  a  tungsten-filament  lamp,  a  series  of  lenses  and  aperture 
stops  for  the  control  of  the  beam  as  it  enters  the  eye,  a  filter  wheel 
containing  a  maximum  of  eight  narrow-band-pass  interference  filters, 
and  a  collection  mirror  for  directing  the  retinal  reflections  into  the 
photomultiplier  tube.  The  second  pathway,  which  provides  the 
bleaching  light  for  the  system,  consists  of  a  high-intensity  xenon-arc 
light  source,  a  system  of  lenses  and  mirrors  for  the  control  of  the 
beam,  a  shutter,  and  a  beam  splitter  to  allow  the  superposition  of  this 
beam  onto  the  measuring-beam  pathway.  The  third  pathway  performs  an 
ophthalmoscopic  function  allowing  the  experimenter  to  examine  the 
subject's  fundus  for  location  and  selection  of  a  target  area;  it  consists 
of  a  removable  mirror  placed  at  45°  to  the  optical  axis  between  the 
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collection  mirror  and  the  photomultiplier  tube,  and  a  series  of  lenses 
for  magnification  of  the  image. 


The  Electronic.  Controls 

The  electronic  controls  for  the  system  provide  amplification  and  noise- 
reduction  of  the  signal  from  the  photomultiplier  tube.;  Pulse  generation 
circuits'  for  the  control  of  data  transmission  between  the  optical 
system  and  the  computer  are  also  provided.  .  The  output  of  the  photo¬ 
multiplier  is  presented  to  one  input  line  of  an  operational  amplifier 
which  masks  the  noise  by  means  of  an  RC  circuit  and  provides 
amplification  of  the  signal.  On  the  periphery  of  the  filter  wheel  is 
mounted  a  cam  which  activates  a  microswitch  once  per  revolution  of 
the  wheel;  closure  of  this  switch  presents  a  signal  to  an  alternate  input 
line  to  the  same  amplifier.  The  net  result  is  a  large  negative- 
pulse,  once  per  wheel  revolution,  in  the  normally  positive  output  of 
the  amplifier.  Also  mounted  on  the  periphery  of  the  filter  wheel  is  an 
annular  ring  that  is  opaque  except  for  a  series  of  radially-inscribed 
slits.  One  slit  is  coincident  with  the  cam  and  one  with  each  filter 
mounted  in  the  wheel.  This  ring  is  positioned  between  a  small  light 
bulb  and  a  photodiode;  as  the  wheel  rotates ,  the  slits  allow  light  from  the 
bulb  to  reach  the  photodiode.  The  output  of  this  photodiode  is  connected 
to  an  operational  amplifier  and  thence  to  a  pulse  generator  which 
provides  shaping  and  delay  facilities  for  the  pulses. 

•  4 


The  output  of  the  first  amplifier  is  connected  via  a  coaxial  cable  to 
the  data  input  line  of  the  analog-to-digital  converter  in  the  computer; 
it  is  this  voltage  that  is  treated  as  data  hy  the  system.  The  output  of 
the  pulse  generator  is  connected  via  a  coaxial  cable  to  the  interrupt 
input  line  of  the  converter.  Each  line  is  also  connected  to  one  trace 
of  a  dual-beam  oscilloscope  for  real-time  monitoring  of  the  data. 

The  concurrence  of  a  pulse  on  the  interrupt  line  (called  an  •'interrupt")  arid 
positive  voltage  oh  the  data  line  is  called  a  "data  point";  the  con¬ 
currence  of  an  interrupt  and  negative  voltage  on  the  data  line  (whose 
source  is  assumed  to  be  the  cam  on  the  periphery  of  the  wheel)  is 
called  a  "flag".  The  flag  is  used  by  the  computer  to  maintain 
synchrony  between  subsequent  cycles  of  the  wheel  by  denoting  the 
beginning  of  each  cycle. 

• 

3  The  Computer  System 

The  computer  system  used  to  record  and  process  data  from  the 

fundus  reflectometer  consists  of  an  INTERDATA  Model  3  processor 

with  high-speed  arithmetic  and  input/output  option;  4,  096  sixteen-bit 

words  of  core  memory;  ASR  33  teletype;  two  INTERTAPE  cassette 

.  • 

units  with  two  tape  drives  each;  and  a  single-channel  analog-to-digital 
converter.  The  converter  provides  the  interface  between  the  fundus 
reflectometer  proper  and  the  computer.  The  teletype  provides  system 
control  via  its  keyboard  and  hard-copy  output  through  its  printing 
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facilities.  It  is  also  used  extensively  in  program  development.  The 
cassette  units  are  used  for  program  and  data  storage  arid  retrieval. 

2.  4  Basic  Operational  Characteristics 

When  all  apparatus  arc  readied  for  an  experiment,  the  filter  wheel  is 
turning  continuously  and  thus  presenting  a  continuous  train  of  data 
points  and  flags  to  the  analog-to-digital  converter.  Since  it  is  not 
possible  for  the  computer  to  differentiate  these  events,  provisions  are 
built  into  the  computer  program  to  allow  the  operator  to  control  the 
process  by  input  of  system  control  parameters  in  order  to  allow  con¬ 
sistency  of  data  and  thus  meaningful  analysis  of  the  results. 

For  all  data  included  in  this  report,* four  narrow-band-pass  interference 
filters  (666  nm*  600  nm,.  533  nm,  and  466  nm)  were  mounted  in  the  .  ■ 
filter  wheel,  thus  presenting  four  data  points  for  each  cycle  4oi  the  wheel. 
The  events  resulting  from  one  cycle  of  the  wheel  are  referred  to  as 
a  "scan";  in  this  context,  therefore,  a  scan  consists  of  a  flag  followed 
by  four  data  points.  The  data  were  recorded  in  three  logical  blocks: 
one  set  of  eight  scans  recorded  with  a  dark  slide  preventing  light  from 
reaching  the  photomultiplier,  in  order  to  determine  the  quiescent 
voltage  of  the  analog  system;  one  set  of  eight  scans  recorded  with  the 
dark  slide  removed,  allowing  direct  measurement  of  the  dark-adapted 
state  of  the  fundus;  and  twenty  sets  of  three  scans  each  recorded  at  thirty^ 
second  intervals  after  the  flash  (i.  e. ,  in  each  thirty  second  period,  three  see.':? 
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were  recorded  and  then  twenty- seven  scans  were  skipped)  to  detect 
regeneration  of  the  photopigments  through  reflectance  changes.  The  set 
of  data  recorded  on  tape  as  a  resu’t  of  an  experiment  performed  in 
the  above  manner  is  called  a  "standard  run".  At  the  completion  of 
the  experiment,  any  one  of  a  number  of  processing  programs  may  be 
loaded  into  memory  at  the  discretion  of  the  operator  to  effect  analysis 
of  the  data,  or  a  subsequent  experiment  may  be  initiated  immediately. 
The  ordinary  procedure  at  the  completion  of  an  experiment  was  to 
select  a  simple  data  printout  program  to  allow  determination  of 
data  validity  and  proper  recording.  Since  the  data  were  recorded  on 
tape,  more  complex  processing  was  ordinarily  delayed  to  allow  more 
efficient  utilization  of  the  experiment  time  available. 
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3.'  EXPERIMENTAL  METHODS 
Primate  Experiments 

Recovery  in  the  peripheral  retina  of  the  rhesus  monkey  (macaca 
mulatta)  following  one-second  retinal  illuminances  of  either 
6.  9  X  106,  7.  5  X  108,  3.  3  X  109,  or  4.  7  X  109  trolands  was 
monitored  using  the  fundus  reflectometer.  In  addition,  the  photo¬ 
chemical  effect  of  the  fundus  reflectometer  measuring  beam  was 
examined. 

To  ensure  immobility  of  the  eye  a  head  restraint  device  was 
constructed  and  mounted  onto  the  same  positioning  bracket  as  the 
human  bite-bars,  permitting  the  same  adjustments  of  head  position 
as  with  humans.  The  eye  was  held  in  place  by  a  system  of  sutures 
into  the  sclera.  Corneal  dehydration  was  prevented  by  manual 
closure  of  the  eyelid.  Little  or  no  movement  of  the  globe  was  ob¬ 
served  during  individual  runs;  however,  it  was  often  necessary 
to  tighten  the  sutures  between  experiments. 

At  the  conclusion  of  each  experiment,  the  suture  s  were  removed  and 
the  eye  treated  with  a  topical  anesthetic  and  an  antibiotic  ointment. 
Careful  observations  during  the  recovery  of  the  animals  from  the 
general  anesthetic  revealed  no  difficulty  with  the  previously  sutured  eye. 

Human  Experiments 

Experiments  were  performed  using  human  subjects  for  flash  photolysis 
and  extended  photolysis  of  the  fovea!  region.  Upon  employment,  each 
subject  received  a  thorough  ophthalmological  examination  including 


fundus  photographs  which  were  filed  with  the  subject's  personnel 
records.  Dilation  was  performed  prior  to  each  day's  experiments  by 
the  examining  physician  using  Neo-synephrine  hydrochloride  10%. 

The  subject  was  then  dark-adapted  in  the  experiment  room.  Measure¬ 
ments  were  taken  using  the  apparatus  to  determine  the  quiescent 
voltage  of  the  system  and  the  reflectance  levels  of  the  dark-adapted 
fundus. 

For  flash  photolysis,  the  subject's  eye  was  then  exposed  to  a  bleaching 
source  of  9.  2xl0'td  for  a  period  of  40  msec,  giving  an  effective 
exposure  of  3. 68 x lO^td-sec.  For  extended  photolysis,  the  intensity 
of  the  source  was  9. 4xl04td,  the  duration  100  sec,  and  the  exposure 
9. 4x  10**  td  -sec.  These  exposure  histories  were  chosen  using  the 
theoretical  model  of  photopigment  kinetics^  to  give  approximately 
70%  bleach  at  the  end  of  the  exposure.  Experiments  in  the  concurrent 
flashblindncss  project  were  carried  out  to  determine  recovery  times 
for  identical  illuminance -histories  to  allow  comparison  of  data  from 
the  two  studies.  The  measuring  beam  size,  the  flash  beam  size,  and 
the  position  of  the  subject  were  all  carefully  coordinated  to  ensure 
that  the  area  detected  by  the  photomultiplier  (approximately  5°  -  6° 
of  visual  angle)  fell  within  both  the  area  bleached  and  the  area  covered 
by  the  measuring  beam  (approximately  10°  of  visual  angle).  The  subject 
was  aided  in  fixation  by  the  interposition  of  a  small  black  dot  in  the 
center  of  the  measuring  beam.  The  photomultiplier  tube  was  protected 


Concurrent  with  the  procossir  of  human  subjects,  a  series  of 
experiments  was  made  in  which  reflectances  were  measured  from 
an  artificial  eye.  This  artificial  eye  was  designed  to  approximate  as 
closely  as  practicable  the  optical  characteristics  of  the  human  eye. 

Mounted  at  one  end  of  an  aluminum  housing  was  a  meniscus  lens  of 
1.7  cm  focal  length;  at  the  other,  an  aluminum  disk  with  a  spherically 
concave  inner  surface  to  which  was  glued  a  piece  of  orange  paper. 

The  interior  of  the  housing  was  lined  with  black  paper  to  minimize 
internal  reflections.  Since  the  reflectances  from  the  "fundus"  (the 
orange  paper)  of  this  device  do  not  change,  these  experiments  provided 
a  valuable  tool  in  the  determination  of  ambient  noise  levels  of  the 
system  as  they  might  affect  the  outputs  of  the  various  processing 
programs.  Monitoring  of  the  photomultiplier  output  during  bleaching 
exposure  with  the  dark  slide  in  place  failed  to  reveal  any  light  transmission 
to  the  photomultiplier.  Since  no  effect  on  the  photomultiplier  was  observed 
as  a  direct  result  of  the  bleaching  exposure,  the  inclusion  of  that 
exposure  in  the  process  of  the  artificial-fundus  experiments  was  deemed 
unnecessary,  and  was  omitted. 


4.  RESULTS 


Primate  Experiments 

Q 

The  4.  7xl07td  illuminance  produced  severe  retinal  burns  which  were 
readily  observed  ophthalmoscopically.  Fundus  reflectance  increased 
immediately  after  exposure,  and  was  still  gradually  increasing  ten 
minutes  later.  As  anticipated,  normal  dark  adaptation  or  photo¬ 
pigment  regeneration  was  not  observed. 

The  three  cases  of  lower  illuminance  exposures  did  not  produce  retinal 

burns,  and  photopigment  regeneration  was  observed.  In  these  cases, 

reflectance  appeared  to  increase  slowly  for  the  first  100  sec,  then  to 

decrease  slowly  thereafter  as  anticipated.  Although  experimentation 

without  the  use  of  the  bleaching  exposure  showed  a  similar  rise  in 

reflectance  for  the  first  120  sec  (assumed  to  be  the  bleaching  effect 

0 

of  the  measuring  beam),  verification  and  explanation  of  the  phenomenon 
would  require  significantly  more  data. 

Human  and  Artificial  Fundus  Experiments 

Ten  experiment  runs  were  made  using  each  of  the  two  bleaching 

intensities.  The  data  from  each  group  of  ten  runs  was  used  as  input 

(2) 

to  a  program  which  calculated  optical  density  differences  for  each  run 
(Sec  Appendix  1),  and  formed  mean  optical  density  differences  over 


the  ten  runs. 


Tht;  single  set  of  eight  baseline  scans  and  each  of  the  twenty  sets 
of  three  post-flash  scans  were  averaged  to  produce  a  single  mean 
baseline  scan  and  twenty  mean  post-flash  scans  respectively.  The 
optical  density  differences  were  calculated  on  the  basis  of  these  mean 
scans  to  present  single  data  values  at  the  pre-flash  point  and  at 
thirty-second  intervals  after  the  flash.  These  optical  density  differences 
were  then  averaged  over  the  ten  runs  in  the  group  to  produce  the  results  dis¬ 
played  and  marked  with  circles  in  Figures  2-5.  These  figures  also  contain 
the  results  of  the  artificial  fundus  experiments  (marked  with  triangles), 
analyzed  and  presented  in  the  same  manner  as  the  human  data.  Since  no 
bleaching  light  was  used  in  the  artificial  fundus  experiments,  the  data 
presented  for  flash  photolysis  and  for  extended  photolysis  of  the  artificial 
fundus  are  in  fact  the  same  data. 

The  optical  density  differences  were  calculated  in  two  forms:  difference 
between  later  post-flash  scans  and  the  scan  immediately  following  the 
completion  of  bleaching  exposure  (Figures  2  and  4),  and  between  the 
baseline  and  each  post-flash  scan  (Figures  3  and  5)',  In  all  cases  the 
data  obtained  at  666  nm  were  used  as  a  reference  point  according  to 
established  fundus  reflectometric  procedure.  '  Given  output 
voltages  V  from  the  fundus  rcflectometer,  and  further  given  that  Vi 
is  a  data  point  from  the  first  post-flash  scan,  Vir  is  the  data  point 
obtained  at  666  nm  in  that  scan,  Vb  is  a  data  point  from  the  baseline 
scan,  Vbr  is  the  »'66  nm  point  in  that  scan.  Vp  is  a  data  point  from  a 
post-flash  scan,  and  V  pr  is  the  666  nm  point  in  that  scan,  the  two 
formulae  used  to  obtain  optical  density  differences  were 
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Figure  2.  Optical  Density  Differences  Calculated  Using 
.  Equation  1  on  Data  Obtained  with  Brief 
(40  msec)  Exposure 
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Figure  4.  Optical  Density  Differences  Calculated  Using 
Equation  1  on  Data  Obtained  with  Extended 
(100  sec)  Exposure 
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Figure  5.  Optical  Density  Differences  Calculated  Using 
Equation  2  on  Data  Obtained  with  Extended 
(100  sec)  Exposure 


(Eq.  1) 


A  OD  =  Log10((Vi/Vir)/(Vp/Vpr)) 


and 

£OD  =  Log10((V//Vpr)/(Vb/Vbr))  (Eq.  2) 

(2) 

respectively.  Figures  2  and  '3  present  data  from  the  flash 
photolysis  experiments,  and  Figures  4  and  5  data  from  extended 
photolysis. 


Optical  density  differences  calculated  from  the  artificial  fundus 

results  shows  the  expected  characteristics:  they  were  essentially 

linear  with  time  and  remained  very  close  to  zero.  The  optical 

density  differences  calculated  from  the  human  experiment  data  also 

were  as  expected  in  that  they  showed  a  high  reflectance  immediately 

after  the  flash,  decreasing  slowly  to  pre-flash  levels.  The  magnitude 

of  the  differences  obtained  with  this  system  is  somewhat  lower  than 
(2) 

that  of  Weale  due  in  part  to  the  impracticality  of  obtaining 
reflectance  data  in  this  system  within  the  first  few  seconds  after 
bleaching  exposure.  The  data,  however,  are  directly  comparable 
and  show  that  the  system  is  correctly  measuring  reflectance  changes  - 
in  the  human  retina  during  the  regeneration  of  photopigments. 
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APPENDIX 


Data  Acquisition  and  Analysis  Programs 


/ 


During  the  period' covered  by  this'  contract,  certain  enhancements  were 
made  to  the  computer  systen/which  is  devoted  to  the  collection  and  analysis 
of  fundus  reflectometry  data.  The  addition  of' cassette  tape  units  to  the 
computer  has  allowed  th^/development  ■■■(  a  data  acquisition  and  analysis 
system  which  permits  the  separation  of  acquisition  and  processing  functions 
into  separate  programs,  as  well  as  the  offline  storage  of  fundus  reflec¬ 
tometry  data  for  subsequent  processing. 


The  system  consists  of  a  generalized  analog-to-digital  converter  driver 
(whose  basic  purpose  is  the  initial  reading  of  fundus  reflectometry  data 
from  the  apparatus  and  the  writing  of  these  data  on  cassette)  and  a  number  of 
analysis  and  processing  programs  designed  to  accept  the  tape  output  of  the 
driver.  These  programs  are  kept  in  machine- readable  form  on  cassette,  and 
are  loaded  into  memory  through  a  rudimentary  operating  system  which  positions 
the  program  tape  and  then  loads  the  selected  program  using  the  standard  system 
bootstrap  loader.  The  set  of  all  programs  designed  to  run  under  this  environ¬ 
ment  is  called  the  Fundus  Reflectometry  Control  System,  or  FRCS.  The 
analysis  programs  currently  operational  under  FRCS  include  items  ranging 
in  complexity  from  raw  voltage  printout  programs  for  archival  and  diagnostic 
purposes  to  optical  density  difference  calculators  that  accept  multiple  sets  of 
like  data  as  input. 


A  detailed  description  of  the  individual  programs  that  make  up  the  system 
follows.  This  description  is  designed  to  provide  both  programming  and 
operating  conventions  relating  to  the  system. 
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FUNDUS  REFLECTOMETRY  CONTROL  SYSTEM  (FRCS) 


This  discussion  assumes  that  the  reader  is  familiar  with  the  INTERDATA 
computer  system  and  associated  software.  The  INTERDATA  50  sequence. 
General  Loader,  and  assembler  are  referenced  in  this  discussion;  the  first 
two  are  explained  more  fully  in  INTERDATA  publication  29-231,  and  the  third 
in  29-230.  INTERDATA  standard  notation  is  used  throughout.  The  INTER  DATA 
floating-point  package  is  described  in  29-172;  any  other  information  on  the 
system  may  be  found  in  29-004R02. 

Each  element  in  the  FRCS  is  written  in  INTERDATA  Assembler  Language,  with 
relocatability  specified.  Each  main  program  references  a  routine  named 
MONITR,  which  must  be  loaded  with  it;  MONITR  in  turn  references  PRTLIN. 
MONITR  is  always  loaded  in  memory  locations  x’80’  to  x'FF',  and  the  main 
program  always  follows  MONITR  such  that  the  first  executable  instruction  in 
the  main  program  is  located  at  x'lOO1.  PRTLIN  may  be  loaded  anywhere  in 
the  sequence  of  subprogram  loads  following  the  mainline  subprogram  and 
preceding  any  open-ended  storage  definition  subprograms. 

The  process  of  creating  a  system  residence  tape  consists  in  essence  of 
loading  the  subprograms  into  memory  to  form  an  executable  program  unit, 
then  writing  this  program  unit  onto  cassette.  The  loading  of  the  subprograms 
is  accomplished  using  the  INTER  DATA  General  Loader,  and  the  creation  of  the 
program  tape  is  performed  using  a  machine-language  routine  written 
expressly  for  that  purpose.  V.'hen  an  executable  program  unit  is  written 
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on  tape,  both  the  General  Loader  and  the  output  routine  are  included,  so  that 
they  are  available  whenever  a  FRCS  program  is  resident;  however,  some  of 
the  programs  have  been  structured  such  that  during  processing  the  memory 
locations  occupied  by  these  routines  may  be  overwritten.  They  are  available, 
then,  only  immediately  after  program  loading  and  before  execution  begins. 

The  General  Loader  occupies  memory  locations  x'lAOO’-x'lFCS'  and  the 
output  routine  locations  x,1FC4,-x,1FFF*.  The  output  routine  creates  a  core¬ 
image  record  on  cassette  which  is  to  be  loaded  using  the  INTER  DATA  50 
sequence  with  location  x'SA1  altered  to  contain  x’lFFF*  instead  of  x'CF*. 

Each  record  is  preceded  by  a  file  gap  to  allow  high-speed  tape  positioning 
by  MONITR,  and  comprises  a  core  image  of  locations  x'80*  to  x'lFFF'.  As 
indicated  above,  each  such  record  always  contains  MONITR  in  locations  x' 80'  to 
x'FF’,  the  General  Loader  in  locations  x’lAOO'  to  x’lFC3',  the  cassette 
output  routine  in  locations  x'lFC4*  to  x'lFFF',  and  PRTLIN  loaded  via 
the  General  Loader  and  linked  to  MONITR  at  some  point  in  memory 
between  the  end  of  the  mainline  program  and  the  beginning  of  the  General 
Loader. 

MONITR  is  the  "operatingsystem" ;  it  is  responsible  for  positioning  the 
system  residence  tape  properly  when  a  program  is  selected  through  the 
low-order  seven  data  keys  on  the  system  console,  and  transferring  control 
to  the  INTERDATA  50  sequence  for  the  actual  loading  process.  At  the 
completion  of  loading,  MONITR  checks  to  ensure  that  the  program  loaded 
was  in  fact  the  program  selected,  and  if  so  transfers  control  to  x'100',  by 
convention  the  first  executable  location  of  the  mainline  subprogram. 


MONITR  may  be  accessed  in  one  of  two  ways:  by  the  program  and  by  the 
operator.  Access  by  the  program  is  accomplished  by  branching  to  a 
defined  entry  point  in  the  subprogram  which  causes  the  printing  of  the 
message  "SELECT  PROGRAM"  and  the  halting  of  the  processor,  at  which 
point  the  operator  places  the  program  number  in  hexadecimal  in  the  low- 
order  seven  data  keys  and  depresses  execute;  access  by  the  operator 
(which  dispenses  with  the  message  and  halt)  is  accomplished  by  setting 
the  current  location  counter  in  the  PSW  to  x'80'  and  then  entering  the  program 
number  in  the  data  keys  as  above.  At  the  completion  of  either  of  these 
processes,  if  the  program  selected  is  resident,  it  is  initiated  al  its  first 
location  (x'100');  if  not,  the  program  tape  is  rewound,  and  the  proper  program 
is  located  and  loaded.  This  is  accomplished  whether  entry  to  MONITR  was 
manual  or  automatic.  Restarting  of  a  program  known  to  be  resident  when 
MONITR  is  not  in  control  is  accomplished  by  a  manual  branch  to  x’100* 
which  bypasses  MONITR  completely. 

The  program  number  which  the  operator  uses  to  select  the  program  has 
two  meanings*  it  is  used  by  MONITR  as  the  number  of  files  to  skip  on  the 
system  residence  tape  before  loading,  and  it  is  then  checked  by  MONITR  at 
the  completion  of  loading  to  ensure  that  the  loading  process  transpired 
correctly.  Accordingly,  care  should  be  taken  that  the  program  number 
and  its  location  on  tape  be  identical  when  the  program  unit  is  written  onto 
the  tape  if  the  program  unit  is  to  be  loaded  using  MONITR.  If  this 
precaution  is  not  observed  and  loading  is  attempted  through  MONITR, 
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the  processor  will  hang  with  the  "USE"  light  lit  on  the  residence 
drive  and  the  program  tape  at  end- of- tape. 

The  writing  of  a  mainline  subprogram  and  subsequent  cataloging  of  the 
program  unit  on  the  system  residence  tape  of  FRCS  is  thus  subject  to 
several  constraints: 

(1)  The  mainline  subprogram,  and  all  subprograms  to  be 
loaded  with  it,  must  be  relocatable: 

(2)  The  mainline  subprogram  should  declare  as  EXTRN  the 
label  MON1TR,  to  which  it  branches  upon  job  termination 
and  it  should  likewise  declare  as  ENTRY  the  label  PROGNO, 
which  should  specify  an  integer  halfword  containing  the 

file  number  that  the  executable  program  unit  is  to 
occupy  when  it  is  written  on  the  program  tape; 

(3)  When  the  components  of  the  executable  program  unit  are 
loaded  into  memory  using  die  General  Loader,  the 
following  order  should  be  observed:  MON1TR,  mainline 
subprogram,  ancillary  subprograms,  and  open-ended 
storage  definition  subprograms;  and 

(4)  Among  the  ancillary  routines  loaded  should  be  PRTLIN 
which  is  used  by  MONXTR  to  type  the  end-of-job  message. 
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PROGRAM  ABSTRACTS 


Program  0,  the  program  which  reads  the  analog -to -digital  converter  and 
places  the  data  on  cassette,  is  a  generalized  program  designed  for 
flexibility.  A  standardized  subset  of  the  possible  outputs  of  this  program, 
called  a  standard  run,  conforms  to  certain  restrictions.  A  standard  run 
consists  of  three  blocks  of  data:  the  first,  containing  one  pattern 
repetition,  is  to  be  treated  as  a  reading  of  the  quiescent  voltage  of  the 
system  (called  the  bias  voltage  in  later  discussions),  obtained  with  a 
dark  slide  over  the  photomultiplier  tube;  the  second,  containing  one 
pattern  repetition,  is  treated  as  a  reading  of  the  dark-adapted  state  of 
the  fundus  (referred  to  as  the  baseline);  and  the  third,  usually  with  multiple 
pattern  repetitions,  is  treated  as  a  reading  of  the  bleached  fundus  and  its 
recovery  to  the  baseline  state  (called  the  post-flash  data).  "Block"  and 
"pattern"  are  defined  in  the  description  of  Program  0. 

The  majority  of  the  processing  programs  have  three  characteristics  in 
common:  they  are  loaded  by  MONITR;  they  expect  a  single  standard  run 
as  input;  they  exit  through  MONITR  when  processing  of  that  run  is  complete. 
A  program  unit  of  this  description  is  referred  to  as  a  standard  processing 
program;  all  processing  programs  are  assumed  to  be  standard  unless 
otherwise  specified  in  their  abstracts.  Program  0,  of  course,  is  not 
considered  a  processing  program  at  all  in  tills  context. 


PROGRAM  0:  Analog-toDigital  Conversion  and  Tape  Output^ 

* 

Label:  FUNDAD.  Entry  for  first  instruction :  FUNDAD. 

Other  entries:  PROGNO,  TAPE.  Extrns:  PRTUN, 

TAPIN,  TAPOUT,  ENDFIL,  MONITR,  DTOB,  BTOD, 

TOTAP,  INADC.  Loading  order  MONITR,  FUNDAD, 

PRTLIN,  TAPIN,  TAPOUT,  BTOD,  DTOB,  STORES. 

Storage  for  mainline  subprogram:  x'A60'. 

t 

For  the  purposes  of  this  discussion  a  brief  description  of  the  connection 

I 

| 

between  the  analog  and  digital  systems  is  in  order.  Two  lines  connect  the  1 

t 

Fundus  Reflectometer  to  the  analog-to-digital  converter  in  the  computer* 
a  data  line  and  an  interrupt  line.  The  data  line  is  a  cable  over  which  the 
varying  voltages  (i.  e. ,  the  data)  are  continuously  transmitted  for 
conversion  into  digital  form.  The  interrupt  line  enters  the  converter 
at  such  a  point  that  it  allows  external  "pulsing"  of  the  computer;  it  is 
used  in  this  installation  to  signal  the  computer  to  start  the  sampling  for 
a  given  data  value.  Upon  receipt  of  an  interrupt,  the  computer  is 
expected  tosamplethe  data  line  as  fast  as  it  can  for  a  given  number  of 
samples,  then  find  the  mean  of  those  samples.  The  resultant  mean  is 
regarded  by  the  program  to  be  the  value  for  one  data  point.  Since  the 
design  of  the  Fundus  Reflectometer  includes  cyclic  repetition  of  values 
for  given  wave  lengths,  and  since  it  is  necessary  for  the  computer  to  be 
able  to  differentiate  them  at  any  time,  it  is  provided  with  a  signal  to 
indicate  the  start  of  a  cycle.  This  signal,  called  a  flag,  consists  of  a 
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negative  voltage  on  the  data  line  accompanying  an  interrupt  pulse;  in 
other  words,  a  negative  data  point.  A  single  cycle,  consisting  of  the 
flag  plus  all  data  points  before  the  next  flag,  is  called  a  scan. 

The  basic  function  of  FUNDAD  is  to  read  scans  into  memory  and  put  them 
on  tape  when  time  is  available  to  do  so. 

This  basic  function  is  controlled  by  a  variety  of  parameters  which  are 
entered  in  numeric  form  via  the  teletype.  The  intended  location  of  the 
data  on  the  cassette  is  specified  as  a  tape  unit  number  and  a  file  number; 
the  scan  is  defined  in  terms  of  number  of  points  and  number  of  samples 
per  point.  The  operator  then  specifies  the  number  of  blocks  and  the 
scan/skip  procedure  for  each  block.  A  block  is  defined  as  an  operator - 
initiated  period  of  data  recording;  that  is  to  say.  the  operator  must 
depress  the  execute  button  to  start  a  block,  since  the  processor  has 
been  halted  by  the  program.  For  each  block,  the  scan/skip  procedure 
definition  consists  of  the  entry  of  three  numbers:  the  number  of  times  a 
scan/skip  pattern  is  to  be  executed  within  the  block;  and  the  pattern 
itself,  consisting  of  two  numbers,  the  number  of  scans  to  be  read  and  the 
number  of  scans  to  be  skipped  in  each  execution  of  the  pattern. 

When  all  input  parameters  have  been  entered  and  verified,  the  program 
positions  the  output  tape,  records  the  input  parameters  on  it  so  that  it 
will  not  be  necessary  to  redescribe  the  data  for  each  processing  program 
(this  record  is  referred  to  in  other  descriptions  as  the  run  control  informa¬ 
tion),  and  halls  at  the  beginning  of  the  first  block.  When  initiated  by  the 
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operator,  the  program  executes  the  scan/skip  procedure  for  that  block; 
upon  completion,  it  halts  at  the  beginning  of  the  second.  This  procedure 
is  followed  until  all  blocks  specified  have  been  recorded;  at  the  end  of 
the  last  block,  the  program  writes  a  standard  end-of-file  on  the  output 
tape  and  transfers  control  to  MONITR  to  allow  the  loading  of  another 
program. 

PROGRAM  1;  Voltage  printout,  short  form. 

Label:  VLTPR1.  Entry  for  first  instruction:  VLTPR1. 
Other  entries  PROGNO,  TAPE.  Extrns:  PRTLIN. 
TAPIN,  MONITR,  FFLOAT,  FBDCNV.  FADD.  FDIV, 
BTOD,  DTOB,  INPUT.  BUFIN.  Loading  order:  MONITR, 
VLTPR1,  FPPKGE,  PRTLIN,  TAPIN,  BTOD,  DTOB, 
STORES.  Storage  for  mainline  subprogram  x'AlA'. 

This  program  serves  to  print  the  raw  voltages  for  diagnostic  and  archival 
purposes.  After  requesting  and  obtaining  the  tape  unit  and  file  numbers  of 
the  data,  the  program  positions  the  tape  and  then  performs  the  following 
steps: 

(1)  Reads  the  run  control  information  and  checks  certain  values  for 
validity. 

(2)  Reads  the  first  block  and  computes  and  prints  the  bias  voltage 
(equal  to  the  mean  of  all  data  in  the  block). 
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(3)  Heads  the  second  block  (baseline),  prints  each  scan  in 
the  block  t  after  subtracting  the  bias  from  each  value), 


and  computes  and  prints  a  pseudo-scan  consisting  of 
the  mean  of  all  values  for  each  wavelength  called  the 
mean  baseline  scan. 

(4)  Reads  each  record  in  the  third  block,  and  prints  all  scans 
in  the  record  (  after  subtracting  the  bias  from  each  value), 
together  with  an  indication  of  the  pattern  that  created  it. 

(5)  When  all  records  in  the  third  block  have  been  processed, 
returns  control  to  MONITR. 

The  program  is  designed  to  print  the  data  as  fast  as  possible.  This  is  achieved 
by  truncating  the  actual  number  of  characters  printed  for  each  value.  Checks 
are  made  to  ensure  that  the  values  are  printable  in  this  format;  if  not,  the 
number  is  replaced  with  asterisks  in  the  printout  to  indicate  that  it  was  outside 

the  permissible  range.  Should  this  occur,  it  will  be  necessary  to  use  the  long- 

/' 

form  print  program  (program  2)  to  obtain  the  missing  values. 

PROGRAM  2-  Voltage  printout^  long  form. 

Label*;  VLTPR2.  Entries,  extrns  and  loading  order  as  for  VLTPR1.  j 

1 

Storage  for  mainline  subprograms:  x*9D6*. 

This  program  is  identical  to  VLTPRl  (program  1)  except  that  no  restriction 
is  made  on  the  size  of  values  printed.  It  requires  approximately  fifty  percent 
more  printing  time  than  VLTPRl  for  a  given  run. 


PROGRAM  3:  .  Voltage  averaging  without  base  line, 


Label:  VLTAV1.  Entry  for  first  instruction:  VLTPR1. 

Other  entries:  PROGNO,  TAPE.  Extrns:  PRTLIN,  TAPIN. 
MONITR,  FFLOAT,  FBDCNV,  FADD,  FDIV,  DTOB,  INPUT, 
BUFIN.  Loading  order:  MONITR,  VLTAV1,  FPPKGE,  PRTLIN. 
TAPIN,  DTOB,  STORES.  Storage  for  mainline  subprogram: 
x'844‘. 

This  program  computes  and  prints  the  mean  scan  for  each  scan  set  in  Block  3 
of  a  run,  subtracting  the  bias  voltage  from  each  value  during  the  mean  comput¬ 
ation  process.  This  is  accomplished  by  the  following  steps: 

(1)  As  for  VLTPRl  Step  L  ' 

(2)  As  for  VLTPRl  Step  2. 

(3)  Skips  Block  2  (  baseline  data). 

(4)  Reads  each  record  in  the  third  block;  computes  and  prints 
a  mean  post-flash  scan  consisting  of  the  mean  of  all 
values  for  each  wavelength,  for  each  record  in  the  block. 

(5)  When  all  records  in  the  third  block  have  been  processed, 
returns  control  to  MONITR. 

PROGRAM  4:  Voltage  difference  from  base  line.. 

Label:  VLTAV2.  Entry  for  first  instruction:  VLTPRl. 

Other  entries:  PROGNO,  TAPE.  Extrns:  PRTLIN,  TAPIN, 
MONITR,  FFLOAT,  FBDCNV,  FADD,  FSUB,  FDIV,  DTOB, 
INPUT,  BUFIN.  Loading  order:  MONITR,  VLTAV2,  FPPKGE, 
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PRTLIN,  TAPIN.  DTOB,  STORES.  Storage  for  mainline 
subprogram:  x'9EA'. 

This  program  computes  and  prints  the  difference  between  the  mean  post-flash 
scans  as  computed  by  VLTAVl  in  Step  4  and  the  mean  baseline  scan  as 
computed  by  VLTPR1  in  Step  3.  This  is  accomplished  as  follows : 

(1)  As  for  VLTPRl  Step  1. 

(2)  As  for  VLTPRl  Step  2. 

(3)  Computes  and  prints  the  mean  baseline  scan  as  in  VLTPRl 
Step  3.  Does  not  print  the  individual  baseline  scans. 

(4)  Computes  and  prints  the  difference  between  the  mean 
post-flash  scans  (computes  as  in  VLTAVl  Step  4)  and 
the  mean  baseline  scan. 

(5)  When  all  records  in  the  third  block  have  been  processed, 
program  returns  control  to  MONITR. 

PROGRAM  5:  Summary  tape  output  from  standard  run  input. 

Label:  SUMRY1.  Entry  for  first  instruction:  SUMRYl. 

Other  entries:  PROG  NO,  TAPE.  Extrns:  PRTLIN,  MONITR, 
TAPIN,  TAPOUT,  ENDFIL,  FFLOAT,  FADD,  FDIV,  DTOB, 
INPUT,  BUFIN.  Loading  order:  MONITR,  SUMRYl,  FPPKGE, 
PRTLIN,  TAPIN,  TAPOUT.  DTOB,  STORES.  Storage  for 
mainline  subprogram:  x'A02*. 


This  program  is  not  a  standard  processing  program.  It  is  designed  to  accept 


multiple  siandard  runs  as  input,  with  the  further  proviso  that  ai!  ;  have  the 
same  number  of  points  per  scan  and  the  same  block  patterns.  For  each  run 
input,  the  program  performs  the  following  steps: 

(1)  Requests  the  location  of  the  run  on  the ‘data  tape. 

(2)  Positions  the  tape  accordingly.  If  this  is  the  first  run 
since  the  program  was  initialized,  rewinds  the  output 
tape  and  writes  a  file  gap  on  it. 

(3)  Reads  the  control  information  of  the  specified  run  and 
checks  certain  data  for  validity. 

(4)  As  for  VLTPR1  Step  2  without  printing  the  bias. 

(5)  As  for  VLTAV2  Step  3,  except  that  data  is  written  on  tape 
in  hexadecimal  floating-point  format  rather  than  printed. 

(6)  As  for  VLTAVl  Step  4,  except  that  data  is  written  on  tape. 

(7)  Writes  a  sequence  number  on  the  output  tape  indicating 
the  number  of  standard  runs  that  have  thus  far  been 
processed  onto  the  summary  tape. 

(8)  Queries  the  operator  as  to  whether  more  runs  are  to  be 
included.  If  the  operator  responds  positively,  the 
program  returns  to  (1). 

If  the  operator  responds  negatively  to  the' question  in  step  8,  the  program 
performs  three  additional  steps: 

(9)  Writes  an  INTERDATA  standard  end-of-fiie  on  the  output 
tape. 
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(10)  Modifies  the  bootstrap  loader  (50  sequence)  to  load  the 
next  program  on  the  program  tape  without  using  or ' 
accessing  MONITR* 

(11)  Exits  by  entering  the  50  sequence  to  load  Program  x'7F'. 

PROGRAM  x'7F*:  Optical  Density  Difference  calculation. 

Label:  ODDI.  Entry  for  first  instruction:  ODD'l.  Other 
entries:  PROGNO,  TAPE.  Extrns:  PR T LIN,  TAPIN,  MONITR, 
FFLOAT,  FBDCNV,  FADD,  FSUB,  FDIV,  FLOGlO,  BTOD, 
DTOB.  Loading  order:  MONITR,  ODDI,  FPPKGE,  PR T LIN, 
TAPIN,  BTOD,  DTOB,  FLOG,  POLYEV.  Storage  for 
mainline  subprogram:  x'974*. 

• 

This  program  is  not  a  standard  processing  program,  since  it  is  designed  to 
accept  the  output  summary  tape  from  Program  5  as  input.  A  "run"  in  the 
context  of  this  description  is  meant  to  indicate  the  information  on  the  summary 
tape  resulting  from  the  processing  of  a  single  standard  run  by  Program  5. 
Multiple  runs  may  be  input,  as  determined  by  the  input  to  Program  5.  Since 
the  control  information  written  on  tape  by  Program  0  is  not  passed  on  to  the 
summary  tape  by  Program  5,  it  is  necessary  for  the  operator  to  reenter 
certain  control  parameters  via  the  teletype.  The  program  is  designed  to 
perform  the  calculation  of  optical  density  difference  in  four  possible  forms. 

Given  the  following  definitions: 

Let  Vp  be  a  post-flash  data  value  in  a  mean  post-flash  scan, 

Let  Vp  be  the  value  pbtained  with  red  filters  in  that  scan, 


Let  Vi  be  a  value  from  either  the  mean  baseline  scan  or  a 
value  from  the  first  mean  post-flash  scan,  and 
Let  Vir  be  the  value  obtained  with  red  filters  in  that  scan. 
We  may  obtain  optical  density  differences  by  a  choice  of  two  (non- equivalent) 
formulae: 


AOD  =  Log^  (  (Vp-Vpr)/  (Vi  -  Vir)  )  or 

A  OD  -  Log  (  (Vp  /Vpr  )  /  (Vi  /  Vir)  ). 

The  selection  of  the  type  of  processing  is  done  by  the  operator  as  follows: 

Type  1  indicates  Vi  is  from  the  baseline  and  the  first  formula  is  to  be  used; 
Type  2  indicates  Vi  is  from  the  baseline  and  the  second  formula  is  to  be  used; 
Type  3  indicates  Vi  is  from  the  first  post-flash  scan  and  the  first  formula 
is  to  be  used; 

Type  4  indicates  Vi  is  from  the  first  post-flash  scan  and  the  second  formula 
is  to  be  used. 

After  loading  under  control  of  Program -5  and  the  50  sequence,  the  operation 
of  the  program  proceeds  as  follows: 

(1)  Program  corrects  50  sequence  to  allow  proper  operation  of  MONITR; 

(2)  Requests  number  of  points  per  scan,  number  of  repetitions  in  Block  3 
(see  abstract  for  Program  0),  and  run  type  from  operator; 

(3)  Rewinds  tape,  positions  it  just  before  first  record,  and  clears  grand 
mean  buffers  (referent  and  result); 
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(4)  Reads  mean  baseline  scan  from  tape;  on  EOF,  transfers  control  to 
(8),  otherwise:  if  run  type  is  1  or  2,  stores  mean  baseline  scan  for 
future  reference,  and  also  adds  its  values  to  the  grand  mean  referent 
buffer;  if  run  type  is  3  or  4,  the  baseline  data  is  ignored; 

(5)  Reads  first  mean  post-flash  scan  from  tape;  if  run  type  is  3  or  4, 
scan  is  treated  as  baseline  and  processing  continues  as  in  (4)  for 
types  1  and  2;  otherwise,  the  optical  density  differences  are  computed 
using  the  selected  formula,  and  the  results  and  Vfr  added  to  their 
proper  locations  in  the  grand  mean  result  buffer; 

(6)  Each  remaining  post-flash  scan  is  treated  as  in  (5)  for  run  types 
1  and  2; 

(7)  Run  number  of  data  set  just  completed  is  read  in,  and  pregram  transfers 
to  (4). 

(8)  Program  divides  each  value  in  both  buffers  by  the  last  run  number  read. 

(9)  Program  prints  the  grand  mean  referent  buffer  (  the  mean  cf  all  Vi 
and  Vir  used  in  the  calculations  of  optical  density  differences)  and  the 

* 

grand  mean  result  buffer  (  the  means  of  all  Vfr  and  optical  density 
differences ). 

(10)  Program  exits  via  MONITR. 

IMPORTANT  NOTE:  It  should  be  carefully  noted  that  this  program  does  not 
occupy  the  position  on  tape  specified  by  its  program  number.  This  is  accomplished 
by  the  fact  that  this  program  is  not  loadable  by  the  monitor  system;  rather  it  is 
loaded  directly  by  the  50  sequence  under  direction  of  Program  5.  The  program 


f 


A  -  16 


number  is  used  at  the  completion  of  the  run  to  determine  if  the  program  is  to 
be  reexecutcd  or  a  new  one  loaded,  but  it  is  not  used  at  load  time.  Note  also 
that  there  is  no  file  gap  separating  Program  5  and  Program  x'7F';  the  latter 

V 

is  assumed  to  be  part  of  th^.  former  by  MONITR. 

PROGRAM  6:  Tape  duplication  utility  program. 

Label:  DUPTAP.  Entry  for  first  instruction:  DUPTAP. 

Other  entries:  PROGNO,  TAPE.  Extrns:  PRTLIN,  TAPIN, 
TAPOUT,  ENDFIL,  MONITR,  DTOB.  Loading  order:  MONITR. 
DUPTAP,  PRTLIN,  TAPIN,  TAPOUT,  DTOB.  Storage  for 
mainline  subprogram:  x'4C2'. 

This  program  is  not  a  standard  processing  program.  Given  data  written  in 
files  on  cassette  by  subroutine  TAPOUT,  DUPTAP  will  selectively  copy  files 
onto  another  cassette.  Each  execution  of  the  program  results  in  a  file  or 
sequence  of  files  being  copied  onto  the  output  tape.  The  program  requests  the 
input  and  output  tape  unit  numbers,  the  starting  file  number  for  input,  the 
destination  file  number  for  the  output  tape,  and  the  number  of  files  to  copy. 

When  the  operator  answers  all  these  questions  via  the  teletype,  the  program 
proceeds  automatically,  and  transfers  to  MONITR  on  completion. 

The  program  was  primarily  written  to  create  backup  and  archival  copies  of 
Fundus  Reflectometry  data  as  output  by  FUNDAD;  it  will,  however,  copy  any 
data  that  is  of  the  format  created  by  subroutine  TAPOUT,  and  as  such  serves 
as  a  general  purpose  tape  duplication  program.  It  will  not,  however,  copy 


program  tapes:  not  only  does  the  record  size  on  a  program  tape  (x'lF80') 
exceed  the  buffer  size  of  DUPTAP  (x'6001)  but  program  tape  records  also 
are  not  of  the  requisite  format. 
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SUBROUTINE  AND  ANCILLARY  LOAD  UNIT  ABSTRACTS 


The  assumption  is  made  that  a  program  calling  or  referencing  one  of  these 
subprograms  contains  the  name  of  the  referenced  routine  in  an  EXTRN. 

MONITR  Provides  system  tape  handling  interface  to  the  INTERDATA 

50  sequence.  Entries:  MONITR,  LOADER.  Extrns:  PRTLIN. 

STORAGE:  x'100'. 

Calling  sequence:  B  MONITR  to  cause  typeout  of  halt 

message  and  processor 
halt,  allowing  operator  to 
select  program  in  data 
keys ;  or 

B  LOADER  to  position  tape  according 
to  selection  in  keys  with¬ 
out  message  or  halt. 

PRTLIN  Prints  a  text  buffer  on  the  teletype. 

Entry:  PRTLIN.  Extrns:  none.  Storage:  x'4C*. 

Calling  sequence:  BAL  15, PRTLIN 

DC  A(BUFFER),NUMCHR 
where  A(BUFFER)  is  the  address 
of  the  text  buffer  to  be  printed,  and 
NUMCHR  is  the  halfword  integer 
number  of  characters  to  be  printed. 
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TAPOUT 


Output  a  buffer  to  cassette,  or  write  an  INTER  DATA  standard 


cassette  end-of-file.  Calling  program  must  contain  a  halfword 
labelled  TAPE  as  an  entry;  this  halfword  must  contain  the 
hardware  tape  address  of  the  unit  on  which  the  selected 


operation  is  to  be  performed. 

Entries:  TAPOUT,  ENDFIL.  Extrns:  TAPE.  Storage: 
x'lC8'. 


Calling  sequence  (TAPOUT): 


BAL  15,  TAPOUT 
DC  A  (BUFFER) 


where  BUFFER  is  a  storage  area  configured  as  follows: 


BUFFER  DC  n 


CKSUM  DC  0 


DATA  DS  n 


The  result  of  calling  the  routine  in  the  specified  manner  is 
to  write  a  buffer  of  length  n  on  tape,  after  computing  the 
checksum  and  storing  it  in  CKSUM.  The  data  written  on 
tape  contains  both  n  and  the  checksum. 


Calling  sequence  (ENDFIL): 


BAL  15,  ENDFIL 


which  writes  a  standard  INTERDATA  end-of-file  on  the 
tape  unit  specified  in  the  halfword  labelled  TAPE. 
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TAPIN 


Input  a  cassette  record  written  by  TAPOUT  into  a 
buffer.  Recompute  and  verify  checksum.  Register  15, 
on  return  from  this  routine,  contains  error  indicators  as 
follows: 

-1  Read  error; 

-2  Checksum  error; 

+1  End-of-file  encountered;  and 

0  Data  read  correctly. 

Entry  TAPIN.  Extrns*  TAPE.  Storage:  x'176*. 

Calling  sequence:  BAL  15, TAPIN 

DC  A(BUFFER) 

LHR  15,15 
BNZ  CKOUT 

where  BUFFER  is  a  storage  area  configured  similarly 
to  that  in  TAPOUT,  except  that  DATA  should  be  large 
enough  to  provide  for  any  expected  record,  and  the 
halfword  constant  at  BUFFER  is  altered  by  TAPIN 
to  indicate  the  actual  number  of  data  bytes  read  in; 
and  CKOUT  is  a  routine  to  determine  the  cause  of  the 
non-zero  error  indicator  and  take  appropriate  action. 

i 
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BTOD 


DTOB 


Converts  an  integer  halfword  contained  in  Register  6  to  its 
decimal  equivalent  in  ASCII,  storing  the  generated  characters 
starting  at  the  location  specified  in  Register  11.  Leading 
zeroes  are  omitted.  The  number  of  characters  generated, 
always  less  than  seven,  is  contained  in  Register  11  upon 
return  from  the  routine. 

Entry*  BTOD.  Extrns?  none.  Storage?  x'BO'. 

Calling  sequence*  LH  6,INTGER 

LHI  11,  BUFFER 
BAL  15,BTOD 

where  INTGER  is  the  halfword  to  be  converted,  and  BUFFER 
is  the  destination  address  for  the  character  string.  Register 
6  is  unchanged  on  return  from  the  routine;  Register  11  contains 
the  number  of  bytes  generated;  and  BUFFER  contains  the 
generated  ASCII  string. 

Converts  an  ASCII  string  whose  address  is  contained  in  Register 
11  to  a  halfword  binary  integer  in  Register  6.  Leading  zeroes 
and  plus  sign  are  optional;  the  conversion  is  terminated  by  a 
non-numeric  ASCII  character  after  the  first  valid  numeric. 
Entry:  DTOB.  Extras?  none.  Storage?  x'EO*. 

Calling  sequence*  "LHI  11,  BUFFER 

BAL  15,  DTOB 
STH  6,  INTGER 
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where  the  character  string  for  conversion  is  located  at  BUFFER 


FLOG  10 


and  the  result  of  the  conversion  is  to  be  stored  at  INTGER  on 
return  from  the  routine. 

Computes  the  common  logarithm  of  a  floating-point  value 
contained  in  Registers  8  and  9,  returning  the  result  in  the  same 
registers.  An  error  return  for  zero  or  negative  input  values  is 
provided.  Entries*  FLOGE,  FLOG2,  FLOGIO.  Extrns*  FADD, 
FMUL,  .FDIV,  FFLOAT  (all  in  FPPKGE),  POLYEV.  Storage: 
x'12E\ 

Calling  sequence:  LH  8,  VALUE 

LH  9.VALUE  +2 
BAL  15,  FLOGIO 
B  LOGERR 
STH  8.RESULT 
STH  9, RESULT 

where  LOGERR  is  a  routine  to  take  appropriate  action  when  a 
negative  or  zero  argument  is  presented  to  the  routine. 

Logarithms  to  base  2  or  e  are  additionally  provided  for  in  this 
routine:  the  calling  sequence  is  identical  except  for  the  call 
proper  which  should  be  BAL  15FLOG2  or  BAL  15, FLOGE  as 
desired.  The  appropriate  logarithm  is  computed  by  the 
following  steps: 

(1)  Determine  the  base  to  which  the  logarithm  is  to  be  computed 
by  determining  the  point  at  which  the  subroutine  was  entered. 
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(2)  Obtain  the  argument.  If  negative,  take  error  exit. 

(3)  Obtain  base-16  exponent  from  the  argument;  multiply  it 
by  4  to  create  a  base- 2  exponent. 

(4)  Obtain  fractional  part  from  argument;  normalize  it  to 
the  range  to  1  inclusive  by  shifting,  and  for  each 
shift  add  1  to  the  exponent  created  in  (3). 

(5)  Convert  this  new  fraction  to  a  standard  floating-point 
number.  In  the  calculations  that  follow,  this  value  will 
be  referred  to  as  "X". 

(6)  Compute  the  mantissa  of  the  base-2  logarithm  of  the 

(5) 

result  of  (5),  X,  using  the  following  expression: 

((4.  81147460989  X  +  6. 10585199015)  X  -  8.  88626599391)  X  -  2.  05466671951 
((X  +  6.  42784209029)  X  +  4.  54517087629)  X  +.  3  53553425277 

(7)  Convert  the  base-2  exponent  obtained  in  (3)  and  (4)  to  a 
floating-point  value;  add  this  to  the  result  of  (6). 

(8)  If  the  desired  base  was  2,  return  with  the  result  of  (7) 
in  Registers  8  and  9. 

(9)  If  the  desired  base  was  e,  multiply  the  result  of  (7) 

by  the  natural  logarithm  of  2,  and  return  with  this  result 
in  Registers  8  and  9. 

(10)  If  the  desired  base  was  10,  multiply  the  result  of  (7)  by 
the  common  logarithm  of  2,  and  return  with  this  result  in 
Registers  8  and  9. 


POLYEV 


\ 

l 

; 

\ 

\ 

i 

\ 


FPPKGE 


Evaluates  a  polynomial  expressed  in  INTERDATA  standard 
floating-point  format. 

Entry:  POLYEV.  Extrns:  FADD,  FMUL.  Storage:  x’4A'. 
Calling  sequence:  LIII  2,Al 

LHI  4,An 
LHI  5,  X 

BAL  15.POLYEV 

Coefficients  Al  -  An  should  be  in  descending  order  of 
argument  power;  for  example,  the  cofficient  for  Xn,  followed 
by  the  x”  *  coefficient  and  ending  with  the  constant  term.  These 
values  must  be  in  consecutive  storage  locations,  and  all 
values  must  be  expressed  in  floating-point  format.  After 
completion  of  the  polynomial  evaluation,  the  result  is 
contained  in  Registers  8  and  9. 

INTERDATA  standard  floating-point  package.  See  INTERDATA 
publication  29-172  for  all  information  on  this  set  of  routines. 


STORES 


Storage  location  EXTRN  satisfaction  for  certain  programs 
in  the  FRCS.  Entries:  BUFIN,  INADC,  INPUT,  TOTAP. 
Extrns:  none.  Storage:  none.  This  load  unit  is  not  an 
executable  program;  in  fact,  it  uses  no  memory  in  itself. 

It  serves  as  a  set  of  pointers  to  mainline  programs  requiring 
open-ended  storage  definitions.  This  program  unit  is  always 
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loaded  after  the  last  executable  segment  of  the  program.  It  defines  the 
buffers  requested  in  relation  to  the  bias  supplied  by  the  general  loader 
satisfying  the  external  references  from  the  calling  program.  All  storage 
from  the  load  bias  of  this  element  to  the  end  of  memory  is  assumed  to  be 
available  for  data  storage,  and  any  memory  extension  is  automatically  made 
available  without  program  alteration  of  any  sort. 


